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interface randomGenerator{ 

void setSeed( in double seed ); 
double getRandom(); 

}; 
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/* part common to IDL interface */ 
r status register value 7 
#define Executing 1 
#define Finished 2 
#define Requesting 3 

r function for accessing register 7 
void putFunctionlD( FID ); 
void putDoubleArg( double ); 
double getDoubleReturn(); 
int getStatus(); 

I* randomGenerator unique part 7 
/* definition of function identification value 7 
#define FID_setSeed 1 
#define FID_getRandom 2 

I* proto-type declaration in C-language function, corresponding to function 7 
void setSeed( double seed ); 
double getRandomQ 
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void setSeed( double seed ) 
{ 

putFunctionlD( FID_setSeed ); 
putDoubleArg( seed ); 

} 

double getRandomO 
{ 

putFunctionlD( FID_getRandom ) ; 
while( getStatusO != Finished ) 

7 

return getDoubleReturn( ); 

} 
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interface piCalculator{ 

void setCount( in int count ); 
double getPi(); 

}; 
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r part common to IDL interface */ 
I* status register value */ 
#define Waiting 0 
#define Executing 1 
#define Finished 2 
#define Requesting 3 

r function for accessing register 7 
FID getFunctionlD( ); 
double getDoubleArg(); 
double putDoubleReturn( double ); 
int getStatusO; 

I* randomGenerator unique part 7 
r definition of function identification value 7 
#define FID_setSeed 1 
#define FID_getRandom 2 

r proto-type declaration in C-language function, corresponding to function 7 
void setSeed( double seed ); 
double getRandom() 
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main() 
{ 

while(1){ 

while( getStatus() •'= Requesting ) 

switch( getFunctionlD() ){ 
case FID_setSeed: 

setSeed( getDoubleArg() ); 
break; 
case FID_getRandom: 

putDoubleReturn( getRandom() ); 
break; 

} 

} 

} 
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